!--------------------------------
! Programa dedicado a calcular
! a area de cada face não equivalente e o volume
! de uma caixa ortorombica.
!
! Os lados sao especificados pelo
! usuario por ocasiao da execucao.
!
! Programa compilado e testado com:
! $ gfortran -o exec02 exec02.f90
! $ ./exec02
!
! Forma de utilizacao auto-exlicativa
! atravez de comentarios.
!
! _o_o_ oOo _o_o_ 25/08/2010


PROGRAM exec02
  IMPLICIT NONE
  REAL(8) :: comprimento, largura, profundidade

  write(*,*) "Escreva as dimensoes da sua caixa ortorombica"
  write(*,*) "separadas por espaco."
  write(*,*) "Comprimento, largura e profundidade, por favor."
  read(*,*) comprimento, largura, profundidade

  !!!!!!!!!!!!!
  ! Testando os parametros
  ! nao podem ser negativos
  IF ( (comprimento<0) .OR. (largura<0) .OR. (profundidade<0) ) THEN
    write(*,*) "Não há caixa com lado negativo."
    write(*,*) "Tenha um bom dia!"
  !!!!!!!!!!!!
  ! Caso os parametros sejam ok, vamos processar
  ELSE
    write(*,*) "Area das faces nao equivalentes em linhas diferentes,"
    write(*,*) "na ultima linha temos o volume"
    write(*,*) comprimento*largura
    write(*,*) comprimento*profundidade
    write(*,*) largura*profundidade
    write(*,*) comprimento*largura*profundidade
    write(*,*) "Tenha um bom dia!!!"
  END IF
end PROGRAM
